(rmail-get-new-mail): Run rmail-after-get-new-mail-hook.

diff --git a/lisp/mail/rmail.el b/lisp/mail/rmail.el
index ffb016917ea59fd044c93d847e84dc4c733721c4..a8efb765c133bc726d239f4483ed179e83390d17 100644 (file)
--- a/lisp/mail/rmail.el
+++ b/lisp/mail/rmail.el
@@ -943,6 +943,7 @@ It returns t if it got any new messages."
          ;; Move to the first new message
          ;; unless we have other unseen messages before it.
          (rmail-show-message (rmail-first-unseen-message))
+         (run-hooks 'rmail-after-get-new-mail-hook)
          t))
     ;; Don't leave the buffer screwed up if we get a disk-full error.
     (rmail-show-message)))